perm filename OUTFIL.F4[IRC,LCS] blob sn#091421 filedate 1977-03-30 generic text, type T, neo UTF8
00100		SUBROUTINE OUTFIL(N)
00200		TYPE 1
00300		ACCEPT 2,N
00400	1	FORMAT(' TYPE OUTPUT FILE NAME  '$)
00500	2	FORMAT(A5)
00600		END